home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Libraries / WASTE 1.2 / WASTE Pascal Interfaces / LongCoords.p next >
Text File  |  1996-05-19  |  747b  |  48 lines
  1. unit LongCoords;
  2.  
  3. { Pascal interface to the WASTE text engine: }
  4. { Long Coordinates }
  5. { version 1.1 }
  6.  
  7. { Copyright © 1993-1996 Marco Piovanelli }
  8. { All Rights Reserved }
  9.  
  10. interface
  11.     uses
  12.         Types;
  13.  
  14.     type
  15.  
  16. { long coordinates types }
  17.  
  18.         LongPt = record
  19.                 case Integer of
  20.                     0: (
  21.                             v: LongInt;
  22.                             h: LongInt;
  23.                     );
  24.                     1: (
  25. {$IFC NOT UNDEFINED THINK_PASCAL}
  26.                             vh: array[VHSelect] of LongInt;
  27. {$ELSEC}
  28.                             vh: array[0..1] of LongInt;
  29. {$ENDC}
  30.                     );
  31.             end;  { LongPt }
  32.  
  33.         LongRect = record
  34.                 case Integer of
  35.                     0: (
  36.                             top: LongInt;
  37.                             left: LongInt;
  38.                             bottom: LongInt;
  39.                             right: LongInt;
  40.                     );
  41.                     1: (
  42.                             topLeft: LongPt;
  43.                             botRight: LongPt;
  44.                     );
  45.             end;  { LongRect }
  46.  
  47. implementation
  48. end.